v ttl$ ls
{Testing more functions like len mid2 locate pause.}
v letterIndex# @ 0
v maxIndex# len ttl$
do
    v letterIndex# + letterIndex# 1
    v testIndex# #> letterIndex# maxIndex#
    if testIndex#
        exit
    else
        v col# * letterIndex# 3
        locate col# letterIndex#
        v char$ mid2 ttl$ letterIndex# 1
        p; char$
        pause 350
    fi
loop

